home *** CD-ROM | disk | FTP | other *** search
- Attribute VB_Name = "MailGLOBALS"
- Option Explicit
- '
- ' Properties accessed by setup forms
- '
- Global g_emailaddr As String
- Global g_username As String
- Global g_PopHost As String
- Global g_PopUserName As String
- Global g_PopPassword As String
- Global g_SmtpHost As String
- Global g_SmtpUsername As String
- Global g_SmtpPassword As String
-
- '
- ' Action constants
- '
- Global Const MailActionNoAction = 0
- Global Const MailActionAbort = 1
- Global Const MailActionAscend = 2
- Global Const MailActionConnect = 3
- Global Const MailActionCreatePart = 4
- Global Const MailActionDecode = 5
- Global Const MailActionDeletePart = 6
- Global Const MailActionDescend = 7
- Global Const MailActionDisconnect = 8
- Global Const MailActionEncode = 9
- Global Const MailActionHostDelete = 10
- Global Const MailActionNewMessage = 11
- Global Const MailActionRead = 12
- Global Const MailActionReadMessage = 13
- Global Const MailActionWrite = 14
- Global Const MailActionWriteMessage = 15
- '
- ' Source and Destination flags
- '
- Global Const MailSrcIsBuffer = 1
- Global Const MailSrcIsFile = 2
- Global Const MailSrcIsHost = 4
- Global Const MailSrcIsBody = 8
- Global Const MailDstIsBuffer = 16
- Global Const MailDstIsFile = 32
- Global Const MailDstIsHost = 64
- Global Const MailDstIsBody = 128
-
-
-
- Declare Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
-
- Global Const WM_SETREDRAW = &HB
- Global Const WM_USER = &HB0
- Global Const EM_GETSEL = &HB0
- Global Const EM_SETSEL = &HB1
- Global Const EM_LINEINDEX = &HBB
- Global Const EM_LINELENGTH = WM_USER + 17
- Global Const EM_GETLINE = WM_USER + 20
- Global Const EM_LINEFROMCHAR = WM_USER + 25
- Global Const EM_SETREADONLY = WM_USER + 31
-
- Global Const LB_SETTABSTOPS = &H192
-
- Type DirCounters
- DirName As String
- HighestMsg As Long
- End Type
-
-
-